home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / arvis1 / inputwin.frm < prev    next >
Text File  |  1997-08-10  |  7KB  |  220 lines
  1. VERSION 5.00
  2. Begin VB.Form InputWindow 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Congratulations You Have The New High Score"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4680
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "InputWindow.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Moveable        =   0   'False
  16.    ScaleHeight     =   3195
  17.    ScaleWidth      =   4680
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.TextBox NewName 
  20.       Height          =   330
  21.       Left            =   135
  22.       TabIndex        =   1
  23.       Top             =   2160
  24.       Width           =   4380
  25.    End
  26.    Begin VB.Label Label4 
  27.       Alignment       =   2  'Center
  28.       AutoSize        =   -1  'True
  29.       BackStyle       =   0  'Transparent
  30.       Caption         =   "Cancel"
  31.       BeginProperty Font 
  32.          Name            =   "Times New Roman"
  33.          Size            =   20.25
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       ForeColor       =   &H00008000&
  41.       Height          =   465
  42.       Left            =   2790
  43.       TabIndex        =   4
  44.       Top             =   2610
  45.       Width           =   1155
  46.    End
  47.    Begin VB.Label Label3 
  48.       Alignment       =   2  'Center
  49.       AutoSize        =   -1  'True
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "OK"
  52.       BeginProperty Font 
  53.          Name            =   "Times New Roman"
  54.          Size            =   20.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       ForeColor       =   &H00008000&
  62.       Height          =   465
  63.       Left            =   705
  64.       TabIndex        =   3
  65.       Top             =   2610
  66.       Width           =   585
  67.    End
  68.    Begin VB.Label Label2 
  69.       BackStyle       =   0  'Transparent
  70.       Caption         =   "Enter Your Name:"
  71.       BeginProperty Font 
  72.          Name            =   "Times New Roman"
  73.          Size            =   9.75
  74.          Charset         =   0
  75.          Weight          =   700
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       ForeColor       =   &H00FFFF00&
  81.       Height          =   240
  82.       Left            =   135
  83.       TabIndex        =   2
  84.       Top             =   1845
  85.       Width           =   1500
  86.    End
  87.    Begin VB.Label Label1 
  88.       Alignment       =   2  'Center
  89.       BackStyle       =   0  'Transparent
  90.       Caption         =   "You Have Beaten The High Score For Quad-Ball !"
  91.       BeginProperty Font 
  92.          Name            =   "Times New Roman"
  93.          Size            =   24
  94.          Charset         =   0
  95.          Weight          =   700
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       ForeColor       =   &H0000FFFF&
  101.       Height          =   1635
  102.       Left            =   45
  103.       TabIndex        =   0
  104.       Top             =   -45
  105.       Width           =   4515
  106.    End
  107. End
  108. Attribute VB_Name = "InputWindow"
  109. Attribute VB_GlobalNameSpace = False
  110. Attribute VB_Creatable = False
  111. Attribute VB_PredeclaredId = True
  112. Attribute VB_Exposed = False
  113.  
  114. '»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»'
  115. 'This Form Is Used To Get The Name Of The High Scorer '
  116. '_____________________________________________________'
  117.  
  118. Private Sub Form_Load()
  119.  Call Set_Mouse_X_Y(Me.Left / Screen.TwipsPerPixelX + 100, Me.Top / Screen.TwipsPerPixelY + 100)
  120.  ExitInputWindow = False
  121.  Me.Picture = ParentForm.StoryScreen.Picture ' load back image
  122.  Me.Show
  123.  Me.Refresh
  124.  LimitMovement ' start loop to control mouse
  125. End Sub
  126. 'Limits Mouse Movemnt
  127. Private Sub LimitMovement()
  128. Do
  129.   If ExitMouse = True Then GoTo nd:
  130.   If ExitInputWindow = True Then GoTo nd:
  131.   Me.ZOrder 0 ' place in front
  132.   DoEvents
  133.   KeepMouseOnForm ' move mouse onto form
  134.  Loop Until ExitMouse = True
  135. nd:
  136. Unload Me
  137. End Sub
  138. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  139.  ExitMouse = True
  140.  ExitInputWindow = True
  141. End Sub
  142. 'Svae The new Top Score And Scorer Name
  143. Private Sub Label3_Click()
  144.  Call SaveScore(NewName.Text, ParentForm.Score.caption)
  145.  Unload Me
  146. End Sub
  147. 'highlights Label 3 On Mouse Move
  148. Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  149.  If Label3.Tag = "yes" Then Exit Sub
  150.  Label3.Tag = "yes"
  151.  If Label4.Tag = " yes" Then
  152.   Label4.ForeColor = RGB(0, 90, 0)
  153.   Label4.Top = Label4.Top + 50
  154.   Label4.FontSize = Label4.FontSize - 5
  155.   Label4.Tag = "no"
  156.  End If
  157.  WAVPlay "click.qbs"
  158.  Label3.Top = Label3.Top - 50
  159.  Label3.ForeColor = RGB(0, 255, 0)
  160.  Label3.FontSize = Label3.FontSize + 5
  161.  End Sub
  162. 'Exits The Form
  163. Private Sub Label4_Click()
  164.  Dim Result As VbMsgBoxResult
  165.  Result = MsgBox("Are You Sure?, If You Click OK Your New Top Score Will not Be Saved!", vbOKCancel, "Confirmation")
  166.  If Result = vbCancel Then
  167.   Exit Sub
  168.  Else
  169.   ExitMouse = True
  170.   Unload Me
  171.  End If
  172. End Sub
  173. 'highlights Label 4 On Mouse Move
  174. Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  175.  If Label4.Tag = "yes" Then Exit Sub
  176.  Label4.Tag = "yes"
  177.  If Label3.Tag = " yes" Then
  178.   Label3.ForeColor = RGB(0, 90, 0)
  179.   Label3.Top = Label3.Top + 50
  180.   Label3.FontSize = Label3.FontSize - 5
  181.   Label3.Tag = "no"
  182.  End If
  183.  WAVPlay "click.qbs"
  184.  Label4.ForeColor = RGB(0, 255, 0)
  185.  Label4.Top = Label4.Top - 50
  186.  Label4.FontSize = Label4.FontSize + 5
  187.  End Sub
  188. 'unhighlights Labels 3 + 4  On Mouse Move
  189. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  190.  If Label4.Tag = "yes" Then
  191.   Label4.ForeColor = RGB(0, 90, 0)
  192.   Label4.Top = Label4.Top + 50
  193.   Label4.FontSize = Label4.FontSize - 5
  194.   Label4.Tag = "no"
  195.  End If
  196.  If Label3.Tag = "yes" Then
  197.   Label3.ForeColor = RGB(0, 90, 0)
  198.   Label3.Top = Label3.Top + 50
  199.   Label3.FontSize = Label3.FontSize - 5
  200.   Label3.Tag = "no"
  201.  End If
  202.  Label4.ForeColor = RGB(0, 90, 0)
  203.  Label3.ForeColor = RGB(0, 90, 0)
  204. End Sub
  205. ' Call This To Make Sure The Mouse doesn't leave The Form
  206. Private Sub KeepMouseOnForm()
  207. If ExitMouse = True Or ExitInputWindow = True Then GoTo nd:
  208. If Get_Mouse_X >= Int((Me.Left + Me.Width) _
  209.  / Screen.TwipsPerPixelX) - 5 Then _
  210.  Set_Mouse_X ((Me.Left + Me.Width) / Screen.TwipsPerPixelX) - 5
  211. If Get_Mouse_X <= Int((Me.Left) _
  212.  / Screen.TwipsPerPixelX) Then _
  213.  Set_Mouse_X ((Me.Left) / Screen.TwipsPerPixelX) + 5
  214. If Get_Mouse_Y <= Int(Me.Top / Screen.TwipsPerPixelY) + 5 Then _
  215.  Set_Mouse_Y (Me.Top / Screen.TwipsPerPixelY) + 5
  216. If Get_Mouse_Y >= Int((Me.Top + Me.Height) / Screen.TwipsPerPixelY) - 5 Then _
  217.  Set_Mouse_Y ((Me.Top + Me.Height) / Screen.TwipsPerPixelY) - 5
  218. nd:
  219. End Sub
  220.